(f >=> g) a = join (fmap g (f a))